home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / TEST20.TRP < prev    next >
Text File  |  1995-01-24  |  310b  |  14 lines

  1. procedure main
  2. var
  3.         s : string;
  4.         p : PChar = "This is interesting";
  5. endvar
  6.         str(5 : 0 : 2, s);
  7.         writeln("The String is ", s);
  8.         { this is a remark }
  9.         writeln("The PChar is ", p);
  10.         p := "And this is something different";
  11.         writeln(p);
  12. endproc
  13.  
  14.